home *** CD-ROM | disk | FTP | other *** search
/ Hyper Stacks 1994 May / Hyper Stacks (Pacific HiTech)(1994)[Mac].iso / Science / Biology / WayeBox Folder / WayeBox 1.1 / box2 / background_3237.txt < prev    next >
Encoding:
Text File  |  1990-06-13  |  9.7 KB  |  471 lines
  1. -- background: 3237 from stack: in
  2. -- bmap block id: 3678
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. ON OPENCARD
  8.   HIDE BACKGROUND FIELD "SHOW"
  9. END OPENCARD
  10.  
  11.  
  12.  
  13. -- part 7 (field)
  14. -- low flags: 00
  15. -- high flags: 0007
  16. -- rect: left=286 top=19 right=72 bottom=503
  17. -- title width / last selected line: 0
  18. -- icon id / first selected line: 0 / 0
  19. -- text alignment: 0
  20. -- font id: 3
  21. -- text size: 12
  22. -- style flags: 0
  23. -- line height: 16
  24. -- part name: 
  25.  
  26.  
  27. -- part 8 (field)
  28. -- low flags: 00
  29. -- high flags: 0007
  30. -- rect: left=285 top=75 right=125 bottom=502
  31. -- title width / last selected line: 0
  32. -- icon id / first selected line: 0 / 0
  33. -- text alignment: 0
  34. -- font id: 3
  35. -- text size: 12
  36. -- style flags: 0
  37. -- line height: 16
  38. -- part name: 
  39.  
  40.  
  41. -- part 9 (field)
  42. -- low flags: 00
  43. -- high flags: 0007
  44. -- rect: left=285 top=129 right=181 bottom=502
  45. -- title width / last selected line: 0
  46. -- icon id / first selected line: 0 / 0
  47. -- text alignment: 0
  48. -- font id: 3
  49. -- text size: 12
  50. -- style flags: 0
  51. -- line height: 16
  52. -- part name: 
  53.  
  54.  
  55. -- part 10 (field)
  56. -- low flags: 00
  57. -- high flags: 0007
  58. -- rect: left=284 top=182 right=234 bottom=502
  59. -- title width / last selected line: 0
  60. -- icon id / first selected line: 0 / 0
  61. -- text alignment: 0
  62. -- font id: 3
  63. -- text size: 12
  64. -- style flags: 0
  65. -- line height: 16
  66. -- part name: 
  67.  
  68.  
  69. -- part 13 (field)
  70. -- low flags: 00
  71. -- high flags: 0000
  72. -- rect: left=6 top=157 right=216 bottom=128
  73. -- title width / last selected line: 0
  74. -- icon id / first selected line: 0 / 0
  75. -- text alignment: 0
  76. -- font id: 3
  77. -- text size: 12
  78. -- style flags: 0
  79. -- line height: 16
  80. -- part name: lab name
  81.  
  82.  
  83. -- part 16 (button)
  84. -- low flags: 00
  85. -- high flags: 0000
  86. -- rect: left=77 top=312 right=335 bottom=102
  87. -- title width / last selected line: 0
  88. -- icon id / first selected line: 1013 / 1013
  89. -- text alignment: 1
  90. -- font id: 0
  91. -- text size: 12
  92. -- style flags: 0
  93. -- line height: 16
  94. -- part name: Next
  95. ----- HyperTalk script -----
  96. on mouseUp
  97.   go to next card
  98. end mouseUp
  99.  
  100.  
  101.  
  102. -- part 17 (button)
  103. -- low flags: 00
  104. -- high flags: 0000
  105. -- rect: left=44 top=312 right=335 bottom=70
  106. -- title width / last selected line: 0
  107. -- icon id / first selected line: 1014 / 1014
  108. -- text alignment: 1
  109. -- font id: 0
  110. -- text size: 12
  111. -- style flags: 0
  112. -- line height: 16
  113. -- part name: Prev
  114. ----- HyperTalk script -----
  115. on mouseUp
  116.   go to prev card
  117. end mouseUp
  118.  
  119.  
  120.  
  121. -- part 18 (button)
  122. -- low flags: 00
  123. -- high flags: 8003
  124. -- rect: left=11 top=257 right=279 bottom=111
  125. -- title width / last selected line: 0
  126. -- icon id / first selected line: 0 / 0
  127. -- text alignment: 1
  128. -- font id: 0
  129. -- text size: 12
  130. -- style flags: 0
  131. -- line height: 16
  132. -- part name: pop card
  133. ----- HyperTalk script -----
  134. on mouseUp
  135.   pop card
  136. end mouseUp
  137.  
  138.  
  139.  
  140. -- part 19 (button)
  141. -- low flags: 00
  142. -- high flags: 8003
  143. -- rect: left=6 top=115 right=137 bottom=106
  144. -- title width / last selected line: 0
  145. -- icon id / first selected line: 0 / 0
  146. -- text alignment: 1
  147. -- font id: 0
  148. -- text size: 12
  149. -- style flags: 0
  150. -- line height: 16
  151. -- part name: go to lab
  152. ----- HyperTalk script -----
  153. on mouseUp
  154.   push card
  155.   if field "lab name" is empty then
  156.     ask "what is the name of the lab"
  157.     if it is empty then exit mouseup
  158.     put it into field "lab Name"
  159.   end if
  160.   put field "lab Name" into labName
  161.   go to stack "box1"
  162.   go to card item 1 of labName
  163. end mouseUp
  164.  
  165.  
  166.  
  167.  
  168. -- part 20 (field)
  169. -- low flags: 00
  170. -- high flags: 0000
  171. -- rect: left=7 top=59 right=110 bottom=126
  172. -- title width / last selected line: 0
  173. -- icon id / first selected line: 0 / 0
  174. -- text alignment: 0
  175. -- font id: 3
  176. -- text size: 12
  177. -- style flags: 0
  178. -- line height: 16
  179. -- part name: freezer name
  180.  
  181.  
  182. -- part 21 (button)
  183. -- low flags: 00
  184. -- high flags: 8003
  185. -- rect: left=0 top=23 right=45 bottom=100
  186. -- title width / last selected line: 0
  187. -- icon id / first selected line: 0 / 0
  188. -- text alignment: 1
  189. -- font id: 0
  190. -- text size: 12
  191. -- style flags: 0
  192. -- line height: 16
  193. -- part name: go to freezer
  194. ----- HyperTalk script -----
  195. on mouseUp
  196.   push card
  197.   if field "freezer name" is empty then
  198.     ask "what is the name of the freezer"
  199.     if it is empty then exit mouseup
  200.     put it into field "freezer Name"
  201.   end if
  202.   put field "freezer Name" into FreezerName
  203.   go to stack "box2"
  204.   go to card item 1 of FreezerName
  205. end mouseUp
  206.  
  207.  
  208.  
  209.  
  210. -- part 22 (button)
  211. -- low flags: 00
  212. -- high flags: 8003
  213. -- rect: left=12 top=233 right=255 bottom=112
  214. -- title width / last selected line: 0
  215. -- icon id / first selected line: 0 / 0
  216. -- text alignment: 1
  217. -- font id: 0
  218. -- text size: 12
  219. -- style flags: 0
  220. -- line height: 16
  221. -- part name: no. of cards
  222. ----- HyperTalk script -----
  223. on mouseUp
  224.   set userlevel to 5
  225.   put empty into message box
  226.   get number of cards
  227.   put "The total Number of Cards = " into word 1 of message
  228.   put it into word 7 of message
  229.   set userlevel to 2
  230. end mouseUp
  231.  
  232.  
  233.  
  234. -- part 27 (button)
  235. -- low flags: 00
  236. -- high flags: 8000
  237. -- rect: left=103 top=25 right=66 bottom=144
  238. -- title width / last selected line: 0
  239. -- icon id / first selected line: 32462 / 32462
  240. -- text alignment: 1
  241. -- font id: 0
  242. -- text size: 12
  243. -- style flags: 0
  244. -- line height: 16
  245. -- part name: Help
  246. ----- HyperTalk script -----
  247. on mouseUp
  248.   push card
  249.   go to card id 11167 of stack "box4"
  250. end mouseUp
  251.  
  252.  
  253.  
  254.  
  255. -- part 30 (button)
  256. -- low flags: 00
  257. -- high flags: 8002
  258. -- rect: left=1 top=312 right=342 bottom=35
  259. -- title width / last selected line: 0
  260. -- icon id / first selected line: 0 / 0
  261. -- text alignment: 1
  262. -- font id: 0
  263. -- text size: 12
  264. -- style flags: 0
  265. -- line height: 16
  266. -- part name: Zoom
  267. ----- HyperTalk script -----
  268. on mouseUp
  269.  
  270.   global FF
  271.   global LL
  272.   global CC
  273.   global MM
  274.   put empty into MM
  275.   put 1 into CC
  276.   ask "Which field you like to see?" with "1"
  277.   if it is empty then exit mouseUp
  278.   if it is not in "123456" then exit mouseUp
  279.   put it into WFF
  280.   if WFF is "1" then put 1 into FF
  281.   if WFF is "2" then put 2 into FF
  282.   if WFF is "3" then put 3 into FF
  283.   if WFF is "4" then put 4 into FF
  284.   if WFF is "5" then put 7 into FF
  285.   if WFF is "6" then put 8 into FF
  286.   get the number of lines in field FF
  287.   put it into LL
  288.   repeat for LL times
  289.     set cursor to busy
  290.     get line CC of field FF
  291.     put it after MM
  292.     put return after MM
  293.     add 1 to CC
  294.   end repeat
  295.  
  296.   put MM into field "SHOW"
  297.   repeat with c = 1 to number of card buttons
  298.     Hide card button c
  299.   end repeat
  300.   repeat with c = 1 to number of card FIELDS
  301.     Hide card FIELD c
  302.   end repeat
  303.  
  304.   hide card picture
  305.  
  306.   show field "show"
  307.  
  308. end mouseUp
  309.  
  310.  
  311.  
  312. -- part 31 (button)
  313. -- low flags: 00
  314. -- high flags: 8002
  315. -- rect: left=0 top=283 right=311 bottom=35
  316. -- title width / last selected line: 0
  317. -- icon id / first selected line: 0 / 0
  318. -- text alignment: 1
  319. -- font id: 0
  320. -- text size: 12
  321. -- style flags: 0
  322. -- line height: 16
  323. -- part name: hide
  324. ----- HyperTalk script -----
  325. on mouseUp
  326.   global LL
  327.   global FF
  328.   global CC
  329.   global MM
  330.   put 1 into CC
  331.   put empty into MM
  332.   get the number of lines in field "show"
  333.   put it into LL
  334.   repeat for LL times
  335.     get line CC of field "SHOW"
  336.     put it after MM
  337.     add 1 to CC
  338.   end repeat
  339.   show card picture
  340.   hide field "SHOW"
  341.   repeat with c =1 to number of card buttons
  342.     show card button c
  343.   end repeat
  344.   repeat with c =1 to number of card fields
  345.     show card field c
  346.   end repeat
  347. end mouseUp
  348.  
  349.  
  350.  
  351. -- part 32 (button)
  352. -- low flags: 00
  353. -- high flags: 8002
  354. -- rect: left=11 top=200 right=222 bottom=108
  355. -- title width / last selected line: 0
  356. -- icon id / first selected line: 0 / 0
  357. -- text alignment: 1
  358. -- font id: 0
  359. -- text size: 12
  360. -- style flags: 0
  361. -- line height: 16
  362. -- part name: Empty all 
  363. ----- HyperTalk script -----
  364. on mouseUp
  365.   answer "Do you want to empty all fields?" with "yes" or "no" or "cancel"
  366.   if it is "no" then exit mouseUp
  367.   if it is "cancel" then exit mouseUp
  368.   repeat with i=1 to number of fields
  369.     put empty into field i
  370.   end repeat
  371.   repeat with i=1 to number of card fields
  372.     put empty into field i
  373.   end repeat
  374. end mouseUp
  375.  
  376.  
  377.  
  378. -- part 34 (field)
  379. -- low flags: 00
  380. -- high flags: 0007
  381. -- rect: left=285 top=236 right=289 bottom=502
  382. -- title width / last selected line: 0
  383. -- icon id / first selected line: 0 / 0
  384. -- text alignment: 0
  385. -- font id: 3
  386. -- text size: 12
  387. -- style flags: 0
  388. -- line height: 16
  389. -- part name: 
  390.  
  391.  
  392. -- part 35 (field)
  393. -- low flags: 00
  394. -- high flags: 0007
  395. -- rect: left=285 top=291 right=342 bottom=503
  396. -- title width / last selected line: 0
  397. -- icon id / first selected line: 0 / 0
  398. -- text alignment: 0
  399. -- font id: 3
  400. -- text size: 12
  401. -- style flags: 0
  402. -- line height: 16
  403. -- part name: 
  404.  
  405.  
  406. -- part 36 (field)
  407. -- low flags: 80
  408. -- high flags: 4007
  409. -- rect: left=51 top=22 right=342 bottom=512
  410. -- title width / last selected line: 0
  411. -- icon id / first selected line: 0 / 0
  412. -- text alignment: 0
  413. -- font id: 3
  414. -- text size: 12
  415. -- style flags: 0
  416. -- line height: 16
  417. -- part name: SHOW
  418.  
  419.  
  420. -- part 37 (button)
  421. -- low flags: 00
  422. -- high flags: 8002
  423. -- rect: left=11 top=173 right=195 bottom=111
  424. -- title width / last selected line: 0
  425. -- icon id / first selected line: 0 / 0
  426. -- text alignment: 1
  427. -- font id: 0
  428. -- text size: 12
  429. -- style flags: 0
  430. -- line height: 16
  431. -- part name: New Card
  432. ----- HyperTalk script -----
  433. on mouseUp
  434.   answer "Make another card like this one? " with "yes" or "no" or "cancel"
  435.   if it is "cancel" then exit mouseUp
  436.   if it is "no" then
  437.     put "Go to the card which you want to copy" into the message box
  438.     exit mouseUp
  439.   end if
  440.  
  441.   if it is "yes" then
  442.  
  443.     domenu "copy Card"
  444.     domenu paste card
  445.     set name of this card to empty
  446.     repeat with i=1 to number of fields
  447.       put empty into field i
  448.     end repeat
  449.     repeat with i=1 to number of card fields
  450.       put empty into field i
  451.     end repeat
  452.     put empty into field "Name"
  453.   end if
  454.  
  455. end mouseUp
  456.  
  457.  
  458.  
  459. -- part 38 (field)
  460. -- low flags: 00
  461. -- high flags: 0000
  462. -- rect: left=143 top=24 right=46 bottom=267
  463. -- title width / last selected line: 0
  464. -- icon id / first selected line: 0 / 0
  465. -- text alignment: 0
  466. -- font id: 3
  467. -- text size: 12
  468. -- style flags: 0
  469. -- line height: 16
  470. -- part name: Name
  471.